home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d1 / amac34.arc / BOOK15.QM < prev    next >
Text File  |  1991-02-16  |  10KB  |  229 lines
  1. *                        (BookMarker) BOOK15.QM, v1.5b
  2. * ┌────────────────────────[ Index of Macros ]─────────────────────────────────┐
  3. * │(Alt_1)- Finds first word on cursor line "marked" in the document below     │
  4. * │(Alt_2)- Finds first word on cursor line in document below, "marked" or     │
  5. * │        "unmarked", and places () around selected found word in document    │
  6. * │(Alt_3)- Puts word @ cursor in Index with () around word and word in Index  │
  7. * │(F4)   - Continues until the desired word & location are found using Alt_2  │
  8. * │                                                                            │
  9. * │(Description)    - BookMarker Macros                                        │
  10. * │(Using) Macros   - Start up and Macro Execution                             │
  11. * │(Macros)         - BookMarker Macros                                        │
  12. * │(Other) Macros   - not included                                             │
  13. * │(Version) history                                                           │
  14. * └────────[ be sure to leave at least one blank line at end of Index ]────────┘
  15.  
  16.  
  17. * (Description):
  18. *
  19. *        BookMarker BOOK15.QM is a series of four macros to place ()
  20. *        around selected words in QEdit documents as bookmarks. A bookmark
  21. *        can then be quickly located from an index of book-marked words
  22. *        (also prepared with these macros) at the top of the document by
  23. *        pressing Alt_1.
  24. *
  25. *        Of the many macros I use regularly, Alt_1 is probably the one
  26. *        I use most. It has become so important I could not maneuver
  27. *        without it. Documents I use regularly are Indexed with either
  28. *        Alt_2 or 3. I can quickly get to where I want to be in a
  29. *        document or a help file by entering Alt & 1 at the same time,
  30. *        placing the cursor on the line in an Index I want to locate in
  31. *        the document, and then pressing Enter. Presto, I'm there
  32. *        without having to scroll through the document.
  33. *
  34. * To BEGIN, just type "START BOOK" <Enter>. All pertinent files will be
  35. * loaded in the "Ring" for viewing, and BOOK15.MAC is read.
  36. * Alternatively, type "START BOOK 0" <Enter> and the disk copies of all
  37. * files in the "Ring" will be loaded ready for editing, saving time.
  38.  
  39.  
  40.  
  41.  
  42. * (Using) Macros:
  43. *
  44. *       To execute these macros, be sure Insert is ON and then:
  45. *       1. Place BOOK15.MAC and BOOK15.QM in the current directory.
  46. *       2. Load  BOOK15.QM into a QEdit window.
  47. *       3. Read the macfile BOOK15.MAC as follows:
  48. *                Esc
  49. *                M
  50. *                R
  51. *                BOOK15.MAC
  52. *                Enter
  53. *       4. Press ALT and 1 at the same time and proceed as
  54. *       described below.
  55. *
  56. *       These macros may also be placed in your QCONFIG.DAT file to be
  57. *       continually available.
  58. *
  59. * These macros require "QEdit and QMAC v2.1, February, 1990" or later.
  60.  
  61.  
  62. * (Macros):
  63. *
  64. *┌───────────────────────────────────────────────────────────────────┐
  65. *│(Alt_1) Finds first word on cursor line marked in document below   │
  66. *└───────────────────────────────────────────────────────────────────┘
  67. *
  68. *        Alt_1 macro has 2 steps:
  69. *
  70. *        1. Press Alt and 1 at the same time. Line 1 is marked to
  71. *        highlight. Cursor down to desired line in Index.
  72. *
  73. *        2. Press Enter. The macro then finds the first word on the
  74. *        cursor line in the document below marked with (...).
  75. *
  76. *
  77. @1 macrobegin
  78.         unmarkblock                     * unmark any marked blocks
  79.         begfile                         * go to file begin
  80.         markline                        * and highlight line 1
  81.         markline                        *
  82.         pause                           * pause for Index selection
  83.         wordright markword              * mark first word on line
  84.         copy                            * copy word to scrap
  85.         endpara                         * go to end of Index
  86.         makectrofscreen                 * cursor line center of window
  87.         find "(" paste ")"
  88.         return "I" return               * find first marked word in doc
  89.  jfalse NOMARK:
  90.         begline                         * if mark found go to begline
  91.  jump END:
  92.  NOMARK:
  93.         begfile                         * if no mark found go to begfile
  94.  END:
  95. *
  96. * 32 bytes Tue  09-11-1990  11:19:51
  97.  
  98. * This macro is 32 bytes. You may want to load this shorter version (21
  99. * bytes) where searching starts from cursor line in Index down, not at
  100. * the end of the Index, as above:
  101.  
  102. * @1 macrobegin
  103. *        unmarkblock                    * unmark any marked blocks
  104. *        begfile                        * go to file begin endline
  105. *        markline                       * highlight to show 'on'
  106. *        markline                       *
  107. *        pause                          * pause for Index selection
  108. *        wordright markword             * mark first word on line
  109. *        copy                           * copy word to scrap
  110. *        find "(" paste ")" return      * find first marked word in doc
  111. *        return
  112. *        begline                        * if mark found go to begline
  113. *
  114. * 21 bytes Tue  09-11-1990  11:22:45 added markline
  115.  
  116.  
  117.  
  118.  
  119. *┌─────────────────────────────────────────────────────────────────────────────┐
  120. *│(Alt_2) Finds word in document, adds () to found word and returns to Index   │
  121. *└─────────────────────────────────────────────────────────────────────────────┘
  122. *
  123. *      Alt_2 macro has 3 steps:
  124. *
  125. *       1. Press Alt and 2 at the same time. The macro finds first word
  126. *       on the cursor line in the document below. If first found word
  127. *       is not the desired occurrence, press F4 for next word or until
  128. *       the desired occurrence is found.
  129. *
  130. *       2. When the desired word and location are found, press Enter.
  131. *       The macro places () around desired found word and then return
  132. *       to the original word in the Index.
  133. *
  134. *       3. Press Enter again and the macro places () around the original
  135. *       word in the Index. The cursor ends at end of the marked word in
  136. *       the Index so comments may be added. Be careful not to mark the
  137. *       same word more than once or only the first occurrence of the word
  138. *       in the document will be found with Alt_1.
  139. *
  140. @2      macrobegin                      *
  141.         wordright markword              * mark first word on line
  142.         copy                            * copy word to scrap
  143.         find paste return return        * find first word in doc
  144.         pause                           * pause for Enter or F4
  145.        "("                              * place ( in front of word
  146.         markword                        * markword
  147.         gotoblockend ")"                * place ) at end of word
  148.         pause                           * pause for Enter if OK
  149.         begfile                         * go to file begin
  150.         find paste return return        * find selected word doc
  151.         pause                           * pause for Enter if OK
  152.         markword                        * markword
  153.         gotoblockbeg "("                * place ( in front of word
  154.         gotoblockend ") "               * place ) at end of word
  155.         unmarkblock                     * unmark word
  156. *
  157. * 35 bytes Sat  07-28-1990  15:17:55
  158.  
  159.  
  160. *┌─────────────────────────────────────────────────────────────────────────────┐
  161. *│(Alt_3), Puts word @ cursor in Index with () around marked word and in Index │
  162. *└─────────────────────────────────────────────────────────────────────────────┘
  163. *
  164. *        Alt_3 macro has 2 steps:
  165. *
  166. *        1. Press Alt and 3 at the same time. Macro marks the word at the
  167. *        cursor in the document, then returns to the the end of the Index.
  168. *        The marked word in the document is then copied at the end of the
  169. *        Index with () around it. The cursor is at end of word so
  170. *        comments may be added in the Index.
  171. *
  172. *        2. Press Enter and the cursor returns to the beginning of
  173. *        the line of the marked word in the document.
  174. *
  175. @3      macrobegin                      *
  176.         markword                        * mark word at cursor
  177.         gotoblockbeg "("                * place () around word
  178.         gotoblockend ")"                *
  179.         copy                            * copy word and ) to scrap
  180.         begfile                         * go to file begin
  181.         endpara return                  * go to end of Index
  182.         paste                           * paste word and )
  183.         begline "* (" endline " "       * insert "* (" in front of word
  184.         unmarkblock makebotofscreen     * unmark word and ()
  185.         pause                           * pause for comments and if OK
  186.         begline wordright markword      * mark word
  187.         copy                            * copy word to scrap
  188.         find "(" paste ")"  return      * return to word in doc
  189.         return
  190.         begline                         * go to line begin
  191. *
  192. * 42 bytes Sat  07-28-1990  15:18:04
  193.  
  194.  
  195. *┌────────────────────────────────────────────────────────────┐
  196. *│(f4) Continues until desired word is found using Alt_2      │
  197. *└────────────────────────────────────────────────────────────┘
  198. *
  199. *       (see Alt_2 for use)
  200. *
  201. f4      repeatfind                      * repeat find until desired word
  202.                                         *  & location are found
  203. * 5 bytes Sat  07-28-1990  15:18:17
  204.  
  205.  
  206. * (Other) Macros: See ALLMACRO.INF
  207. *
  208.  
  209. * (Version) History:
  210. *
  211. *   1.0 - initial
  212. *   1.1 - changed document
  213. *   1.2 - modified Alt_1 to keep normal cursor line color before selecting
  214. *         an indexed word. Macro now does not find marked words in Index.
  215. *   1.3 - changed document BOOK13.QM
  216. *   1.3a- Changed other file names in series, this is an update.
  217. *   1.4 - Changed down arrow #25 to ! in @1.
  218. *       - Changed .LST and .QL
  219. *   1.5 - Modified @1 to highlight line 1 rather than ! at end
  220. *   1.5a- Modified this file.
  221. *   1.5b- Modified this file and added START.BAT.
  222.  
  223. * (QEdit)    is not a marked Index word
  224. * (unmarked) is not a marked Index word
  225. * (be)       is not a marked Index word
  226. * (window)   is not a marked Index word
  227. *
  228. *...Tom Hogshead  Wed  10-31-1990
  229.